#!/usr/bin/perl

# 引数は数値三桁以内。変換できれば別に構わない。（後で落とすから）
$num = sprintf("%03d",$ARGV[0]);
if ($num =~/\d{3}/){
}else{
	die "pls num.";
}

$base_num = "000"; # 他のやつをベースにしたいときはこれをいじる
                   # ただし置換されることに注意すること
$base_js  = sprintf("test%03d.js"  , $base_num);
$base_jss = sprintf("test%03d.jss" , $base_num);

$out_js   = sprintf("test%03d.js"  , $num);
$out_jss  = sprintf("test%03d.jss" , $num);

if (-e $out_js){die $out_js  . " is found.";}
if (-e $out_js){die $out_jss . " is found.";}


# JS 側処理
open (INFILE, $base_js) or die "$!";
open (OUTFILE, ">$out_js") or die "$!";
while (<INFILE>) {
	$line = $_;
	$line =~s/$base_num/$num/igs;
    print OUTFILE $line;
}
close (INFILE);
close (OUTFILE);

# JSS
open (INFILE, $base_jss) or die "$!";
open (OUTFILE, ">$out_jss") or die "$!";
while (<INFILE>) {
	$line = $_;
	$line =~s/$base_num/$num/igs;
    print OUTFILE $line;
}
close (INFILE);
close (OUTFILE);

